home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Perils of Palermo.cpt / Perils of Palermo / card_3049.txt < prev    next >
Text File  |  1987-11-16  |  3KB  |  130 lines
  1. -- card: 3049 from stack: in
  2. -- bmap block id: 2275
  3. -- flags: 0000
  4. -- background id: 2713
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   play harpsichord tempo 300 c4 d eb f g eb g r g
  9.   wait until the sound is "done"
  10.   put empty into card field TextBox of card "Game card"
  11.   put empty into card field oops of card oops
  12.   put empty into card field oops2 of card oops
  13. end opencard
  14.  
  15. on closecard
  16.   set visible of card field "Version info" to false
  17. end closecard
  18.  
  19.  
  20. -- part 1 (button)
  21. -- low flags: 00
  22. -- high flags: 0000
  23. -- rect: left=412 top=249 right=294 bottom=454
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Nick
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   global versioninfo
  35.   if versioninfo contains true then
  36.     put false into versioninfo
  37.     set visible of card field "version info" to false
  38.   else
  39.     visual dissolve
  40.     go to next card
  41.   end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=67 top=253 right=292 bottom=108
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 19678 / 19678
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Tell Me About...
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   global versioninfo
  61.   put true into versioninfo
  62.   set visible of card field "Version Info" to true
  63. end mouseUp
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 81
  68. -- high flags: 2001
  69. -- rect: left=49 top=64 right=239 bottom=456
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 3
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Version Info
  78.  
  79.  
  80. -- part 6 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=107 top=253 right=291 bottom=151
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 11045 / 11045
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Home
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   visual effect iris close
  95.   go home
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 7 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=150 top=256 right=294 bottom=194
  104. -- title width / last selected line: 65535
  105. -- icon id / first selected line: -15707 / 49829
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Home
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   visual effect iris close
  115.   domenu Quit Hypercard
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part contents for card part 4
  121. ----- text -----
  122.  
  123.  
  124. The latest version.
  125.  
  126. What'dya expect?
  127.  
  128.  
  129.  
  130. No copyright needed.  You toucha my code, I breaka ya knees.